inherited frmMeterPaysInd: TfrmMeterPaysInd
  Left = 565
  Top = 386
  VertScrollBar.Range = 0
  BorderStyle = bsDialog
  Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1103' '#1089#1095#1077#1090#1095#1080#1082#1072' '#1079#1072' '#1075#1086#1076
  ClientHeight = 393
  ClientWidth = 266
  OldCreateOrder = True
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 366
    Width = 266
    inherited BitBtn1: TBitBtn
      Left = 59
      Visible = False
    end
    inherited BitBtn2: TBitBtn
      Left = 161
    end
  end
  inherited ToolBar1: TToolBar
    Top = 53
    Width = 266
    Height = 0
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 0
    Width = 266
    Height = 53
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    object Label1: TLabel
      Left = 29
      Top = 8
      Width = 93
      Height = 16
      Alignment = taRightJustify
      Caption = #1057#1095#1077#1090#1095#1080#1082' '#8470'/'#1050#1058
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 17
      Top = 30
      Width = 105
      Height = 16
      Alignment = taRightJustify
      Caption = #1053#1072#1079#1074#1072#1085#1080#1077'/'#1079#1085#1072#1095'.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object DBText1: TDBText
      Left = 128
      Top = 8
      Width = 133
      Height = 17
      DataField = 'METER_NUM'
      DataSource = dscMeterHeader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
    object DBText2: TDBText
      Left = 128
      Top = 30
      Width = 133
      Height = 17
      DataField = 'METER_NAME'
      DataSource = dscMeterHeader
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold, fsUnderline]
      ParentFont = False
    end
  end
  object DBGridEh1: TDBGridEh [3]
    Left = 0
    Top = 53
    Width = 266
    Height = 313
    Align = alClient
    DataSource = dscMeterPaysInd
    Flat = True
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -11
    FooterFont.Name = 'MS Sans Serif'
    FooterFont.Style = []
    Options = [dgEditing, dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    UseMultiTitle = True
    VTitleMargin = 5
    Columns = <
      item
        EditButtons = <>
        FieldName = 'RDOCYEAR'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'RDOCMONTH'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'RSUMMA'
        Footers = <>
      end
      item
        EditButtons = <>
        FieldName = 'RMAXIND'
        Footers = <>
      end>
  end
  inherited ActionList1: TActionList
    Left = 122
    Top = 176
    inherited aCancel: TAction
      OnExecute = aCancelExecute
    end
  end
  inherited PropStorage: TPropStorageEh
    Section = 'frmMeterPaysInd'
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      'DBGridEh1.<P>.Columns.ColumnsIndex'
      'DBGridEh1.<P>.Columns.<ForAllItems>.Width')
  end
  object dsMeterPaysInd: TpFIBDataSet
    SelectSQL.Strings = (
      'select * from PROC_CASHIER_PAYSIND(:pdogovor_id, :pmeter_id)')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 120
    Top = 252
    object dsMeterPaysIndRDOCYEAR: TFIBIntegerField
      DisplayLabel = #1043#1086#1076
      FieldName = 'RDOCYEAR'
    end
    object dsMeterPaysIndRDOCMONTH: TFIBIntegerField
      DisplayLabel = #1052#1077#1089#1103#1094
      FieldName = 'RDOCMONTH'
    end
    object dsMeterPaysIndRSUMMA: TFIBBCDField
      DisplayLabel = #1057#1091#1084#1084#1072
      FieldName = 'RSUMMA'
      Size = 2
      RoundByScale = True
    end
    object dsMeterPaysIndRMAXIND: TFIBBCDField
      DisplayLabel = #1055#1086#1082#1072#1079#1072#1085#1080#1103
      FieldName = 'RMAXIND'
      Size = 3
      RoundByScale = True
    end
  end
  object dscMeterPaysInd: TDataSource
    DataSet = dsMeterPaysInd
    Left = 152
    Top = 252
  end
  object dsMeterHeader: TpFIBDataSet
    SelectSQL.Strings = (
      'select m.id, m.meter_num, '
      
        'coalesce(m.name,'#39#1041#1077#1079' '#1085#1072#1079#1074#1072#1085#1080#1103#39') ||'#39'/'#39'|| mt.capacity as meter_nam' +
        'e'
      'from meters m'
      '  join meter_types mt on mt.id = m.meter_type'
      'where m.id = :pmeter_id')
    Transaction = MAINDM.pMainTransaction
    Database = MAINDM.pMainDatabase
    CSMonitorSupport.Enabled = csmeTransactionDriven
    Left = 119
    Top = 212
    object dsMeterHeaderID: TFIBIntegerField
      FieldName = 'ID'
    end
    object dsMeterHeaderMETER_NUM: TFIBStringField
      FieldName = 'METER_NUM'
      EmptyStrToNull = True
    end
    object dsMeterHeaderMETER_NAME: TFIBStringField
      FieldName = 'METER_NAME'
      Size = 72
      EmptyStrToNull = True
    end
  end
  object dscMeterHeader: TDataSource
    DataSet = dsMeterHeader
    Left = 154
    Top = 212
  end
end
